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EDTSWFRESEQ - resequence a range of Li -Sep-19 VAX-11 s- 
4 . eg eet ae ts ran eed oe er OSRCSWFRESEQ.BLI:1¢™" (15 


3 


NOUS WN —OOONOu 


extracting routine EDT$S$RSEQ_ from module EDTWF. 
‘ Regularize headers. JBS 19-Mar-19 
! 1- - Add return value and Line_ $09 oo _terge erree check. SMB 4-Feb-1982 
! 1- : - nip mt tod count to mye 
! 1- Only copy ¢ edt$$a r_buft x ty fh STS Pa mee 1982 
! 1. 0g - - Fix subtitle one” focdi symbol 5 ~ F 183, 14-Sep-1982 
! 1- - Put edt$$tst_eob a i tne. pe a 
08 = Declare EDT$$Z 3-5 982 
-009 = Remove declarat a rin preersi “é8 ng, longer used. JBS 24-Sep-1982 
10 - Modify to use new 48 bit macros. Sf$ 01-0c “1983 
11 = Modify to use new compare macro. STS 20-Oct-19 


ooo 

REE 

oo 

44445 

Sess 
‘ 


ooo 
DADAM 


| 
' 
i 
' 
i] 
{ 
i] 
! 
' 
1 
! 
' 
1-001 = Original. DJS 23-Feb-1981. This module yes created by 
1 
! 
t 
' 
t 
! 
t 
a 
' 
i] 
Q 


| 
; 1 1 ZTITLE ‘EDTSWFRESEQ = resequence a range of Lines’ 
3 § § MODULE EDTSWFRESEQ ( ' Resequence a range 0 of | nes 
: i oe = ‘v04-000' ' File: £sf0.6L I Edit: $T$1011 
; = 
a 3} BEGIN | 
: § site : leueeeneenaeeerenterennenenenererererenteereettetenetentnnntnnenentnetnnetens 
° Hid y 
3 5 st 1 !® corre lent Ht 1978, 1980, 1982, 1984 BY * 
3 10 10 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
3 \} at) : us ALL RIGHTS RESERVED. * 
’ } ® 
3 i§ ig 1 !® THIS i "irrke fs ite UNDER A LICENSE AND MAY BE USED AND og be * 
; 14 014 1 !* ONLY IN ACCORDANCE WITH TH SUCH LICENSE AND WITH THE * 
; 15 015 1 !* INCLUSION OF THe ABOVE oy caneue NOTICE. T SOF TWARE NY OTHE * 
; 18 519 1 !® (COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
$ 1 01 1 !* QTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
; 18 dt : = TRANSFERRED. ” 
: ; © 
; 0 0020 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
; 1 0021 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ® 
; § 4 ; : * CORPORATION. * 
Py 7 oT 
3 4 9 4 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
; 5 025 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
3 26 0026 1 !# * 
wer i 0027 1 !* * 
3 : 88 3 : ‘Systematic hitachi lsh ich cine tai 
: 30 0080 & 
$ 1 031 1 !4¢4 
: § Oo 86 : ! FACILITY: EDT == The DEC Standard Editor 
co a 0054 1 | ABSTRACT: 
3 5 035 1 
; 6 Bo86 : Resequence a range of Lines. 
3 38 sit 1 i ENVIRONMENT: Runs at any access mode - AST reentrant 
i 40 0040 1 | AUTHOR: Bob Kushlis, CREATION DATE: October 16, 1978 
: 43 004¢ | i MODIFIED BY: 
3; |S 0043 1 
; «6 41 
3; «645 1 
3 46 1 
; «47 1 
; 48 1 
; #649 1 
; = 1 
a: | 
; 33 1 
: 2 1 
3 5 1 
it. ! 


Epysurnesca por pur ne see - resequence a range of Lines 16- sep 1384 96: \3: $3 


V4.0-74 Pa oof 
Declarat abs shcSurreseo.eut:1 - (2 


3 Fes H } XSBTTL ‘Declarations’ 
; 1 1 ! TABLE OF CONTENTS: 

; 3 Be 

3 3 ; REQUIRE ‘EDTSRC: TRAROUNAM'; 
H 08 1 FORWARD ROUTINE 

3 es ¢ ! EDTSSRSEQ; 

: 1! 

3 76 ; 1 ! INCLUDE FILES: 

3 f : & : ! 

4 ig 8 1 REQUIRE ‘EDTSRC:EDTREQ'; 
3 74 4 1 

fee § 1! 

3 g 64 1 ! MACROS: 

: 7 8 . § 

3 78 1! NONE 

; 7 0650 1! 

3 80 51 1 ! EQUATED SYMBOLS: 

: - 8 26 1! 

3 5¢ 0655 1! NONE 

3; § 0654 1! 

;s 84 0655 1 ! OWN STORAGE: 

s 85 0656 1! 

; 86886 0657 1! NONE 

5 7 0658 1! 

$ 8 0659 1 ! EXTERNAL REFERENCES: 
; 6889 0660 1! 

; 0661 1! In the routine 


ee eee el 
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ED TSWFRESEQ EDTSWFRESEQ = resequence a range of Lines 1b-Se 1984 02:13:4 VAX=-11 Bliss-32 V4.0-74 Page 3 

Ou 000 EDTSSRSEQ - resequence 3 renge ot Lines 1e-8ep-19 4 95:38:23 DISKSVMSMASTER CEDT SRCSWFRESEO.BLIs1 ’ (3) 

; 38 668 ! ZSBTTL "EDTSSRSEQ - resequence a range of Lines’ ‘ 
; 94 4 1 GLOBAL ROUTINE EDTSSRSEQ ( ! Resequence a range of Lines ; 
> 2 665 1 COUNT, ! Number of Lines ‘ 
3 006 1 START, ! Initial Line number ; 
s; ¥ 667 1 INC ! Increment ‘ 
; 668 1 ds ‘ 
| r¢ 1 ‘ 
; 100 670 1 S++ ; 
; 101 71 1 ! FUNCTIONAL DESCRIPTION: : 
H 106 pore 1! ‘ 
; 10 675 1! This routine resequences a renge of lines. The current Line is ‘ 
3; 104 7% «1! the first to be resequenced. The Line following the last Line ‘ 
; 105 0675 1! resequenced becomes the current line. This routine works by assigning : 
; 106 0676 1! the number START to the first Line and adding INC to get the next Line ‘ 
; 107 0677 1! number. If when we have finished, the number of the following Line is ‘ 
; 108 0678 1! less than the last one resequenced, then we continue resequencing until . 
3; 109 0679 1! this is no longer true. ° 
s 110 0680 1! , 
3 (47 0681 1 ! FORMAL PARAMETERS: ° 
: t¢ 0682 1! ‘ 
; 11 0683 1! COUNT the number of Lines to be resequenced . 
3; 114 0684 1! ° 
: 6115 0685 1! START the initial Line number ‘ 
: 116 0686 1! ‘ 
3 V7 0687 1! INC the Line number increment. ‘ 
; #118 0688 1! ‘ 
; 119 0689 1 ! IMPLICIT INPUTS: ‘ 
3s 120 0690 1! ° 
; 121 0691 1! EDTSS$A_CUR_BUF ‘ 
s ie 0692 1! EDTSSA_WK_CN ‘ 
3 je 0693 1! ‘ 
: 124 0694 1 ! IMPLICIT OUTPUTS: ; 
: 125 0695 1! ‘ 
; 126 869 1! EDTSSA_CUR_BUF ‘ 
3 Yer 97 1! EDT$$G_WK_MODFD : 
; jie 0698 1! ° 
: 129 99 1 ! ROUTINE VALUE: ° 
; 130 0700 1! ° 
. ON 0701 1! 0 = unable to resequence some of the Lines ° 
;. 33 702 4! 1 = successful resequence ° 
; 13 705 1! ° 
re | 07046 1 ! SIDE EFFECTS: ° 
: 3ae rp? 1! ° 
3; 4% 7 1! NONE ‘ 
: 137 707 1! ; 
3; 138 708 1 !-- ° 
3; «139 709 1 ‘ 
a io 3 
; 166 Ar exTeanm, ROUTINE ‘ 
3; «14 71 EDTSSFMT_MSG, ° 
3 144 714 EDTSS$RD_CURLN : NOVALUE, ‘ 
3: «145 715 EDTSSRD_NXTLN; ‘ 
3 br rg ‘ 
3; 16 71 EXTERNAL : 
: «148 0718 EDTSSL_WK_RESCNT : LN_BLOCK, ! Actual # Lines resequenced 
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SEQ - resequence a range of Lines 16-Sep-1984 02:13:4 VA 
Q- resequence 3 range of Lines 14 Sep 198 95:38:03 I 


EDTSS$L_LNOO : LN_BLOCK, 
L“LNO_ZERO 7 LN_BLOCK, 


- 8 ° 
A_CUR"BUF : REF TBCB BLOCK, 
A_WK_CN : REF LIN_BLOCK, 
G_WK-MODFD, 

$7"EOB_LN : REF LIN_BLOCK; 


MESSAGES ((MAXLINNUM)); 


LOCAL 
COPY_FLAG, 
EOF 2 


EDTSWFRESEQ 
04-000 ze v4.0 ge 


ane Pa 4 
:CEDT.SRCJWFRESEQ.BLI;1 (3) 


Maximum Line number 

Current text buffer ponnres block 
Pointer to current Line 

Flag indicating bucket was modified 


EDTSS 
EDTSS$ 
EDTSS. 
EDTSS. 
EDTS$ 
EDTS Location of special end-of-buffer Line 


MAX 

LINE_ TOO_LARGE 
SAV_BUFPOS : POS BLOCK, 
LINE_CNT : LN BLOCK, ! Temporary holds res count 
“LINE_NUMBER : LN_BLOCK, 

VINUM = LN_BLOCK; 
MOVELINE (.COUNT, LINE 
MOVELINE (.COUNT, EDT$ 
COPY_FLAG = 0; 


IF (LINNOEQL (LINE_CNT, EDTS$L_LNO_ZERO) ) THEN RETURN (0); 


1 or more Lines will have max Line number 


CNT); 
SL_WK_RESCNT); 


0; 
(.START, NEXT_LINE_NUMBER) ; 
MOVELINE (.START. PREV-NUM): ’ 
LINE_TOO_LARGE ='0; 


WHILE ( NOT .EOF) DO 
BEGIN 


‘+ 
: Determine if there are more Lines to resequence than what was specified 
: in COUNT. If so, increase the ‘actual resequence count’’. 


A ees (LINE_CNT, EDTS$L_LNO_ZERO) ) 


IF _ (CMPLNO (EDTS$A_WK_LN CLIN_NUM], PREV_NUM) GTR 0) 
EXITLOOP 
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76 ADDLINE (NUMBER_ONE, EDTS$L_WK_RESCNT) 
7 
i 
85 MOVELINE (NEXT _LINE_NUMBER, EDTSSA_WK_LN CLIN_NUM]); 
770 EDT$$G_WK _MODFD = 1; 
4A EDTSSRD_NRTLN (); 
ng IF (LINNOEQL (LINE_CNT, EDTS$L_LNO_ZERO) ) 
Hs ce 


LSE 
SUBLINE (NUMBER_ONE, LINE_CNT); 
| 


-TITLE EDTSWFRESEQ EDTSWFRESEQ - resequence a range of 


.EXTRN EDTSSFMT MSG. EDTS$RD_CURLN 
eEXTRN EDTSSRO AXT FRiset WK Pesci 
“EXTRN EDTS$SL ON the Neot No_ZER 

" EDTS$$L~LNO 616. MSTth cone BUF 
-EXTRN EDTSSA7 K_CN, EDTS$$G Or MOBF D 
E EDT$$2Z ~E08- LN, EDTS$ _AAXCINNUM 


-PSECT _EDTSCODE.NOWRT, SHR, PIC,2 
OFFC 00000 -ENTRY EpTssasea, Save R2,R3,R4,R5,R6,R7,R8,R9,- 3 0664 


SWFRESEQ EDTSWFRESEQ = resequence a range of lines 1b-3¢ sep-1984 74 VAX-11 Bliss-32 V4.0- 
-000 EDTSSReEa - resequence a renge-of. Lines 300-1 3be 93: 33: t3 DISKSVMSMASTER: CE {DT SRCIWERESEQ. BLI; i? = (33 
: 77 IF ( NOT .COPY_FLAG) 
if RY ag 
: $9 ire 4 BBS sscpy MEM (POS_SIZE, .EDTSSA_CUR_BUF, SAV_BUFPOS); 
: 210 780 4 COPY_FLAG = 1; 
i 1} f 1 ND; 
; 1§ , § MOVELINE (NEXT_LINE_NUMBER, PREV_NUM); 
: 215 785 4 IF (.EDTS$A_WK_LN NEQA EDT$$Z_E0B_LN) 
Be ed pe me ae 
; 18 78 4 ADDLINE (.INC, NEXT_LINE_NUMBER, NEXT_LINE_NUMBER, MAX); 
: 0 0790 5 IF ((CMPLNO (NEXT_LINE_NUMBER, EDTS$L_LNO_BIG) GTR 0) OR (.MAX NEQ 0)) 
3 1 0791 4 THEN 
; ¢ 0735 5 4 he 
; 24 $79% 3 HOVECINE™ LED SSL tio O_BIG, NEXT_LINE_NUMBER) 
> 225 0795 4 ND; ; ste 
H $$8 0796 4 
3 ger 0797 4 END 
; 228 0798 ELSE 
; 4 0799 EOF = 1; 
; 230 0800 
: 231 4 END; 
; $38 080 EDTSSCPY_MEM (POS SIZE, SAV_BUFPOS, .EDT$$A_CUR_BUF); 
: See pene EDTSSRD_CURLN (); 
; $36 0806 IF (.LINE_TOO_LARGE NEQ 0) 
3 gor 0807 THEN 
3; es 0808 BEGIN 
; 239 0809 EDTSSFMT_MSG (EDTS_MAXLINNUM) ; 
: 240 0810 4 RETURN (0) 
; 261 0811 3 END 
; seg Bais § ELSE 
: 26 081 RETURN (1) 
: 2446 0814 3 
3; 245 0815 1 END; ! of routine EDTS$RSEQ 
Lines 
-IDENT \V04-000\ 


<m 
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v04~000 EDTSSRSEQ = resequence a rangeof Lines 132808= 138% 93338583 DLSKSVMSMASTERSCEDT. SRCSWFRESEO.BLI:1 “a 04 
C é SUBL 44 : ‘ 
14 ar 04 aC 6 MOVC3 #6, @COUNT, LINE_CNT : 0739 ; 
000000006 0 4 BC 6 MOVC3 #6, @COUNT, EDTSSL_WK_RESCNT : 0740 ; 
6— D4 0001 CLRL © COPY _FLAG i 9741 : 
000000006 00 14 AE DI 0016 cAPL LOw.T, LOW_2 > 0743 : 
000000006 00 18 i ef 09 6 CHP W HIGH1, HIGH_2 F : 
019 44 $0 A BRW 23$ : : 
5B D4 000eD 1$ CLRL_ EOF > 0745 : 
OC AE 08 BC 06 8 O0?F MOVC3 #6, @START, NEXT_LINE_NUMBER > 0746 : 
04 AL 08 BC 98 88 5 MOVC #6, @START, PREV_NUM 2 OMe ‘ 
D4 00038 CLRL —- LINE_TOO_LARGE ; 0748 : 
57 4 =A 00 0030 MOVL LOW_T, R? : 0757 : 
58 000000006 DO 00041 MOVL  LOW-2, RB : : 
36 000000006 DO 00048 MOVL  EDTSS$A_WK_LN, R6 : 0769 : 
0 B 59 OO04F 28: BLBC OF, 48 : 0750 : 
ong 1 0058 $: BRW : ; 
58 57 D1 00055 4$: CMPL RZ, RB : 0757 : 
41 12 00058 BNEG : : 
000000006 00 18 AE 8] O005A CMP HIGH_1, HIGH_2 : ; 
50 000000006 00 01 C1 00064 ADDL3 #1, EDT$$A_WK_LN, RO : 0760 : 
aah ps 08 Fe boor a ee 
11 12 00073 BNEQ = 7$ : ; 
04 AE 60 01 00075 CMPL (RO), LOW_2 ; : 
05 1€ 00079 BGEGU 6$ : ; 
50 01 CE 00078 5$ MNEGL #1, RO : ; 
09 11 O007E BRB 83 ; : 
04 12 00080 68: BNEQ 7$ : : 
0 D4 00082 CLRL = RO : : 
03 11 00084 BRB $ ; : 
50 01 00 0086 7$ MOVL #1, RO : ; 
C7 14 00089 8$ BGTR 3$ : 3 
000000006 90 06 00088 INCL FIRST _LWORD ; 0764 : 
000000006 90 6 90095 INC NEXT _WORD ee ; 
50 3f D9 0098 9S: MOVL R77, SAVE : 0767 ; 
14 AE D O09 DECL FIRST_WORD : : 
50 14 AF D1 O0A CMPL FIRSTIWORD, SAVE ; : 
eR ae BR BRESY Ahr aon : : 
A6 0c A 5 HS SORA 10$: MOVC3 We REXT_LINE_NUMBER, 1(R6) : 0769 ; 
000000006 0 1 D0 00080 MOVL #1, EDTS$SG_WK-MODFD : 0770 : 
000000006 0 FB 00087 CALLS #0, EDTSSRB_NRTLN : 0771 ; 
14 AE 00 0008 MOVL LOW_1, R7 : 0773 : 
3 000000006 bt 000 a it 
1c 12 gooce BNEQ §=-118 ; : 
000000006 00 18 AE 8] i CMP HIGH.1, HIGH_2 : : 
F : E ° D BLBS COPY FLAG, 11$ : 0776 F 
0 000000006 p D MOVL_ EDTSSA CUR BUF RO : 0779 ; 
60 E OOE MOVC3 #14, (RO), SAV. BUFPOS : ; 
6E D E MOVL #1, COPY_FLAG ; 0780 ; 
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704-000 EDTSSRSEQ - resequence o range ot Lines 1 30071382 93:38:23 DISKSVMSMASTER:CEDT.SRC WFRESEQ.BLI;1.>" (35 
046 A A 28 QOOEA 11$:  MOVC3 #6, NEXT_LINE_NUMBER, PREV_NUM : 07 F 
900000006 6 60 FQ MOVL. EDfS$A_WR_LN,~ - : bre ; 
0006 F MOVAB EDTS$/“E08_LN, RO : : 
6 D F CMPL RS R : F 
A 13 001 BEQL «19 : ; 
50 o¢ AC : ci 001 ADDL3 #6, INC, RO : 0788 : 
1 12 OA Ai 001 ADDW3 (RO), S2_UP, SAVES2 F : 
12 AE 80 10D MOVW  $2_UP, SAVED : ; 
oc «6B 111 MOV aINC, R 3 ; 
OC AE 62 CO 00115 ADDL2 (R2), NEXT_LINE_NUMBER : : 
10 AE 04 Ad 08 00119 ADWC 4(R25, NEXT LINE_NUMBER : : 
51 12 AE 8} 115 CMPW DEST UP, SAVES2 : : 
4 1 BNEQ 12$ : ; 
A D4 00124 CLRL = MAX : F 
3 11 001 6 BRB 13$ : . 
1 00 001 128: MOVL #1, MAX : ; 
12. AE 0 80 0128 13$: MOVW SAVED, DEST_UP : ; 
50 000000006 00 3¢ O012F MOVZWL HIGH_2, RO : 0790 : 
50 10 AE 61 001 CMPW  -HIGH"1, RO : : 
OF 1F 0013A BLSSU-:14$ F : 
18 12 0013¢ BNEQ 16$ ; ; 
50 000000006 00 DO 001 c MOVL  LOW_2, RO : F 
50 0c AE D1 0014 CMPL  LOW-1, RO : : 
05 1€ 00149 BGEGU 15$ : ; 
50 01 CE 00148 148 MNEGL #1, RO : : 
09 11 OO14E BRB 17$ : 3 
04 12 9015 15$ BNEQ 16$ : ; 
30 d&4 00152 CLRL =—s_ RO. ; : 
03 11 00154 BRB 17$ : ; 
50 01 DO 00156 16$: MOVL #1, RO : : 
04 14 00159 17$:  BGTR 18$ ; : 
A D5 00158 TSTL = MAX : ; 
11 13 0015 BEQL $ ; : 
59 01 00 0015F 188:  MOVL. #1, LINE _TOO_LARGE + 0793 : 
0c AE 000000006 00 06 28 00162 MOVC3 #6, EDT$SL_LNO_BIG, NEXT_LINE_NUMBER + 0794 ; 
03 11 00168 BRB : 0785 : 
58 01 00 0160 19$:  MOVL #1, EOF : 0799 - 
FEDC 31 001 9 20$: BRW : 0750 : 
50 000000006 00 06 0173 21$:  MOVL. EDTSS$A_CUR_BUF, RO : 0803 : 
60 1c OA OF O17A MOVC3 #14, SAV_BOFPOS, (RO) : : 
000000006 9 00 FB 0017F CALLS #0, EDTSSRD_CURLN > 0804 3 
59 D3 0186 TSTL NE_TOO_LARGE : 0806 ; 
F 1 01 BEQL $ ; 3 
000000006 8F DD 91 A PUSHL #EDTS MAXL INNUM : 0809 ; 
000000006 00 1 FB 007 CALLS #1, EDTSSFMT_MSG : 
4 11 0019 BRB 23§ : 0813 
50 01 00 0199 22$:  MOVL #1, RO ; 
04 0019¢ RET ; 
50 D4 0190 23$:  CLRL RO + 0815 
4 19F 3 


; Routine Size: 416 bytes, Routine Base: _EDTSCODE + 0000 


: 29 tt ! <BLF /PAGE> 


EDTSWFRESEQ DISWFRESEQ = resequence a range of Lines 
104-000 EDT eanecG - resequence a renge of Lines 

3 $0 ah 1 END 

; i } ) ELUDOM 

; PSECT SUMMARY 

; Name Bytes 

i EDTSCODE 416 NOVEC,NOWRT, RD, 
: Library Statistics 

; o------- Symbol 
: File Total Loaded 
: _$255$DUA28:(EDT.SRCJEDT.L32;1 377 53 
: -$52 Han Melteettel CTS.L32;1 2 1 


COMMAND QUALIFIERS 


un Time 
Bloosnd Time: 
Lines/CPU Zit? 
honenenttea-aies 12924 
Memor Y Used: 194 pages 
Compilation Complete 


siz ze: 416 aie ; 0 data bytes 


Se ase ee Pa 


1B-Fep-1986 02:15:45 vANeTt ou igec32 


! of module EDTSWFRESEQ 


Attributes 
EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 


ges Processing 
Percent Mapped Time 


Bio 9 00:00:14 


FL ESEPCHEGE PSP SELD , SUE TIAL OPT ERE EE) AUDTRACEBACEA| 154, 190 UP RESER/ER)=0B.I5 1 RESES MSRC$:WFRESEQ.BLI/UPDATE=(ENHS$:WFRESEQ 
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(4) 


8) 


EQUIPMENT CORPORATION 
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CONFIDENTIAL AND PROPRIETARY 
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